home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 41 / 041.d81 / asteroid storm (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  7KB  |  194 lines
  1. 10 rem    asteroid storm by jc hilty
  2. 15 poke53248+21,.:sys65418
  3. 20 gosub850
  4. 30 print"[147]"
  5. 40 gosub 1370
  6. 50 sp=255:gosub690
  7. 60 ti$="000000"
  8. 70 sys828:ifpeek(2)=4thenx2=x2-8:ifx2<50thenx2=50
  9. 71 ifpeek(2)=8thenx2=x2+8:ifx2>255thenx2=255
  10. 72 ifa$=";" then x2=x2+8:ifx2>255 then x2=255
  11. 73 geta$:ifa$="l" then x2=x2-8:ifx2<50 then x2=50
  12. 90 pokev+12,x2
  13. 100 w1=peek(v+30)
  14. 110 ifw1and64thensc=sc+10:print"[153]"tab(10)sc"[157] "
  15. 120 onlgosub380,470,390,410,380,430,450:l=l+1:ifl=8thenl=1
  16. 130 ifk=212then490
  17. 131 geta$:on-(a$="w")-(a$="x")*2-(a$="a")*3-(a$="d")*4gosub260,280,300,340
  18. 132 on-(a$="e")-(a$="q")*2-(a$="z")*3-(a$="c")*4gosub360,320,330,370
  19. 133 ifa$=" " then 180
  20. 140 sys828:onpeek(3)gosub260,280,,300,320,330,,340,360,370:pokev,x1:pokev+1,y1
  21. 150 fb=-((peek(56320)and16)=0):iffb=1then180
  22. 160 print"[155]"tab(18)right$(ti$,3):ifval(ti$)>000200then 1650
  23. 170 goto70
  24. 180 pokev+39,2:ifabs(peek(v)-peek(v+14))<gandabs(peek(v+1)-peek(v+15))<gthen200
  25. 190 pokev+39,7:goto70
  26. 200 pokev+39,7:poke2047,213:sc=sc+25:forx=0to24:pokes+x,0:next
  27. 210 pokes+24,15:pokes+12,160:pokes+13,252:pokes+1,10:pokes+8,1:pokes+5,112
  28. 220 pokes+6,252:pokes+4,129:pokes+11,129:forx=0to50:next:pokes+4,128
  29. 230 pokes+11,128:k=202:poke2047,k:print"[153]"tab(10)sc"[157] "
  30. 240 pokev+21,127:pokev+14,int(230*rnd(5))+24:pokev+15,int(84*rnd(4))+50
  31. 250 pokev+21,255:goto70
  32. 260 y1=y1-8:ify1<50theny1=50
  33. 270 return
  34. 280 y1=y1+8:ify1>166theny1=166
  35. 290 return
  36. 300 x1=x1-8:ifx1<24thenx1=24
  37. 310 return
  38. 320 gosub260:gosub300:return
  39. 330 gosub280:gosub300:return
  40. 340 x1=x1+8:ifx1>255thenx1=255
  41. 350 return
  42. 360 gosub260:gosub340:return
  43. 370 gosub280:gosub340:return
  44. 380 poke2047,k:k=k+1:return
  45. 390 poke2041,p2:p2=p2-1:ifp2=191thenp2=199
  46. 400 return
  47. 410 poke2042,p3:p3=p3-1:ifp3=191thenp3=201
  48. 420 return
  49. 430 poke2043,p1:p1=p1-1:ifp1=191thenp1=199
  50. 440 return
  51. 450 poke2044,p5:p5=p5-1:ifp5=191thenp5=201
  52. 460 return
  53. 470 poke2045,p4:p4=p4-1:ifp4=191thenp4=201
  54. 480 return
  55. 490 poke50432,0
  56. 500 forx=0to24:pokes+x,0:next:pokes+24,15:pokes+5,80:pokes+6,243:pokes+3,7
  57. 510 fort=40to17step-1:pokes+4,65:pokev+45,2:pokes+1,t:fordr=0to10:nextdr
  58. 520 pokev+45,1:fordr=0to10:nextdr:nextt:pokes+4,64:pokev+21,191
  59. 530 li=li-1
  60. 540 print"[154]"tab(30)li"[157] ":ifli=0then560
  61. 550 gosub730:k=202:poke2047,k:goto70
  62. 560 goto 1650
  63. 580 ifsc>hsthenhs=sc
  64. 590 :
  65. 600 :
  66. 670 sc=0:l=1:li=3:x1=170:y1=132:x2=165:gosub690:goto60
  67. 680 rem    playing field&sprite initialization
  68. 690 if sp= 62 then 720
  69. 700 print"[147]    [211][195][207][210][197] [153]"0"[157] ";tab(23)" [211][200][201][208][211] [154]"li"[157] "
  70. 710 fort=0to60:a=int(918*rnd(5)+1024):pokea+54272,1:pokea,46:next
  71. 720 pokev+29,255:pokev+23,0:poke650,128
  72. 730 pokev+16,2:poke2040,214:pokev+39,7:pokev,x1:pokev+1,y1
  73. 740 poke2041,p2:pokev+40,5:pokev+2,50:pokev+3,186
  74. 750 poke2042,p3:pokev+41,6:pokev+4,165:pokev+5,50
  75. 760 poke2043,p1:pokev+42,7:pokev+6,24:pokev+7,186
  76. 770 poke2044,p4:pokev+43,8:pokev+8,255:pokev+9,230
  77. 780 poke2045,p5:pokev+44,4:pokev+10,60:pokev+11,229
  78. 790 poke2046,212:pokev+45,14:pokev+12,x2:pokev+13,y2
  79. 800 poke2047,k:pokev+46,15:pokev+14,170:pokev+15,80
  80. 810 poke50438,1:poke50441,254:poke50442,255:poke50443,2:poke50444,254
  81. 820 poke50435,2:poke50436,255:poke50439,255:poke50440,2
  82. 830 poke50688,62:poke50432,062:pokev+21,sp :w1=peek(v+30):return
  83. 840 rem    title
  84. 850 poke53280,0:poke53281,0:print"[147]"
  85. 860 fort=0to100:a=int(960*rnd(5)+1024):pokea+54272,1:pokea,46:next
  86. 870 print""chr$(142)""tab(11)"[158] loadstar presents "
  87. 880 print" [169][154]    "tab(33)"   [223]"
  88. 890 print"[169] [154]   [154] [146] [169][154]   [146] [169][154]   [169][154]      [223][146] [154]   [223][146] [154] [223][146] [154]   [154] [223]"
  89. 900 print"  [154]    [146]  [154]  [146][169]   [154] [146]  [154]  [146][169][154]  [154]  [146] [154]  [154]  [146] [154]  [146] ";
  90. 910 print"[154]   [154]  [223]"
  91. 920 print"  [154]    [146]  [154] [146]     [154] [146]  [154] [146][169] [154]    [146] [154]  [154]  [146] [154]  [146] ";
  92. 930 print"[154]   [154]   "
  93. 940 print"  [154]   [154] [146]  [154]   [146]   [154] [146]  [154]     [154]  [146] [154]  [154]  [146] [154]  [146] ";
  94. 950 print"[154]   [154]   "
  95. 960 print"  [154]   [154] [146]    [154] [146]   [154] [146]    [146][169][223]   [146] [154]    [146] [154]  [146] ";
  96. 970 print"[154]   [154]   "
  97. 980 print"  [154]   [154] [146]  [154]   [146]   [146][169]          [223]   [146] [154]  [146] [154]   [154]   "
  98. 990 print"  [154]   [154] [146]    [146][169]"tab(30)"[223] [146] [154]      "
  99. 1000 print"     [146][169]"tab(33)"[223]     ":print"    [146][169]"tab(34)"[223]    ":print
  100. 1010 printtab(8)"[169][154]    [169][154]   [169][154]   [223][154]   [223][154][223][146]  [169][223]"
  101. 1020 printtab(8)" [154]   [146][169]  [154] [146]  [154]  [154]  [154]  [154]  [154] [223][169]  "
  102. 1030 printtab(8)" [154]    [146]  [154] [146]  [154]  [154]  [154]    [154]     "
  103. 1040 printtab(8)"    [154] [146]  [154] [146]  [154]  [154]  [154]    [154]     "
  104. 1050 printtab(8)" [154]    [146]  [154] [146]  [154]    [154]  [154]  [154]   [154]  "
  105. 1060 printtab(8)"    [146][169]  [146][169] [223]   [146][169][223]   [146][223]    ":print
  106. 1070 print"             by j.c. hilty "
  107. 1080 print"             copyright 1987"
  108. 1090 s=54272:forx=0to24:pokes+x,0:next:pokes+24,15:pokes+5,80:pokes+12,160
  109. 1100 pokes+6,255:pokes+13,252:pokes+4,17:pokes+4,16
  110. 1110 forx=255to50step-1:pokes+1,x:fort=0to5:next:next
  111. 1120 pokes+1,10:pokes+8,1:pokes+5,112:pokes+6,252:pokes+4,129:pokes+11,129
  112. 1130 z=0:forx=0to30:poke53281,z:poke53280,z:z=z+1:ifz=15thenz=0
  113. 1140 next:poke53281,0:poke53280,0
  114. 1150 print:if bg=0 then print"         [155]please wait... loading[145]
  115. 1160 [151]s[170]4,128:[151]s[170]11,128:a[178]0
  116. 1170 [139] bg [178] 1 [167] 1210
  117. 1180 [151]147,0:[158]57812"asteroid.sp",8,1:[158]62631
  118. 1190 [151]147,0:[158]57812"asteroid.mvt",8,1:[158]62631
  119. 1200 [129]x[178]828[164]848:[135]a:[151]x,a:[130]
  120. 1210 v[178]53248:sc[178]0:hs[178]0:li[178]3:l[178]1:p1[178]195:p2[178]199:p3[178]201:p4[178]192:p5[178]197:k[178]202:g[178]12
  121. 1220 x1[178]170:y1[178]132:x2[178]165:y2[178]180:bg[178]1
  122. 1230 [129]x[178]50433[164]50448:[151]x,0:[130]:[151]50688,255:[151]50432,0:[158]51104
  123. 1240 sp[178]62:[141]690:[153]"sys         press space to continue  "
  124. 1250 [161]a$:[139]a$[179][177]" "[167]1250
  125. 1260 [142]
  126. 1270 [131] 173,0,220,41,31,73,31,133,3,173,1,220,73,255,133,2,5,3,133,144,96
  127. 1280 [153]"ononononon"
  128. 1281 [153]"          str$(NULL) (NULL)(NULL)(NULL) (NULL)right$(NULL)left$ (NULL)(NULL) (NULL)(NULL)right$(NULL)?     "
  129. 1290 [161]a$:[139]a$[178]""[167]1290
  130. 1300 [139]a$[178]"y"[176]a$[178]"(NULL)"[167] 1330
  131. 1310 [139]a$[178]"n"[176]a$[178]"(NULL)"[167] 20
  132. 1320 [137] 1290
  133. 1330 [153]"load":[159]15,8,15,"r0:hello connect=hello connect":[132]15,er:[160]15
  134. 1340 [139]er[179][177]63 [167] [153]"load":[128]
  135. 1350 [147]"hello connect",8,1
  136. 1360 :
  137. 1370 [153]"load"
  138. 1371 [151]53248[170]21,.
  139. 1380 :
  140. 1390 [153]"         listor{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}^"
  141. 1400 [153]"         {$7d}                  {$7d}"
  142. 1410 [153]"         (NULL)  atnsteroid (NULL)torm  list(NULL)"
  143. 1420 [153]"         {$7d}  print#tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(  list{$7d}"
  144. 1430 [153]"         {$7d}   INSTRUCTIONS   list{$7d}"
  145. 1440 [153]" or{$60}{$60}{$60}{$60}{$60}{$60}{$60}exp                  /{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}^"
  146. 1450 [153]" {$7d}                                   {$7d}"
  147. 1460 [153]" {$7d}  contPLAYER 1               contPLAYER 2  list{$7d}"
  148. 1470 [153]" (NULL)  print#tab(tab(tab(tab(tab(tab(tab(tab(   listortantantantantantantan^   print#tab(tab(tab(tab(tab(tab(tab(tab(  list(NULL)"
  149. 1480 [153]" (NULL)   defmid$(NULL)(NULL) 2    listorexp       /^   defmid$(NULL)(NULL) 1list    (NULL)"
  150. 1490 [153]" (NULL)            (NULL)         (NULL)            (NULL)"
  151. 1500 [153]" (NULL)  contatnnd / (NULL)r  list(NULL)close clr(NULL)(NULL)val(NULL)(NULL)  list(NULL)  contatnnd / (NULL)r list (NULL)"
  152. 1510 [153]" (NULL)            (NULL)close        (NULL)            (NULL)"
  153. 1520 [153]" (NULL)    print(NULL)eys    list(NULL)  clr(NULL)(NULL)atnlenval  list(NULL)    print(NULL)eys    list(NULL)"
  154. 1530 [